home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
axcool
/
ppdata.pag
< prev
next >
Wrap
Text File
|
1998-10-07
|
1KB
|
50 lines
VERSION 5.00
Begin VB.PropertyPage ppData
Caption = "General"
ClientHeight = 3495
ClientLeft = 0
ClientTop = 0
ClientWidth = 5925
PaletteMode = 0 'Halftone
ScaleHeight = 3495
ScaleWidth = 5925
Begin VB.ComboBox cboDataControls
Height = 315
Left = 225
TabIndex = 1
Text = "Combo1"
Top = 585
Width = 2580
End
Begin VB.Label lblMSDataControl
Caption = "MS Data Control:"
Height = 240
Left = 225
TabIndex = 0
Top = 300
Width = 2700
End
End
Attribute VB_Name = "ppData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Private Sub cboDataControls_Click()
Changed = True
End Sub
Private Sub cboDataControls_KeyPress(KeyAscii As Integer)
Changed = True
End Sub
Private Sub PropertyPage_ApplyChanges()
SelectedControls(0).MSDataControl = cboDataControls.Text
End Sub
Private Sub PropertyPage_SelectionChanged()
cboDataControls.Text = SelectedControls(0).MSDataControl
SelectedControls(0).GetDataControls cboDataControls
End Sub